JUNE 1979 



VOLUME IV ISSUE 6 



EDITORS: 

ROGER J. SPOTT 
JEPP BRQWNSTEIN 



BASIC 

INVOICING PROGRAM 

MATRIX TRANSPOSE (CSS BASIC) 
MATRIX IDENTITY 



OHAN WAI YUNG 

BRQWNSTEIN 
BR OWN STEIN 



PAGE 22 

PAGE 17 
PAGE 18 



INTERFACING THE BETA DIGITAL TAPE 

DRIVE . - .... 

INVISIBLE REFRESH 
MEMORY WRITE PROTECT 
JPG TAPE INTERFACE 

MSI DISK INTERFACE SCHEMATIC 



LARRY SAMBUCO 
Wm. N1CHPARENK0 
m. NICHPARENKO 
CHAN WAI YUNG 

ROBERT ENNIS 



PAGE 1 
PAGE 19 
PAGE 21 
PAGE 12 

PAGE 16 



DISK EDITOR PATCHES FOR 64 CHAR, CRT 
STACK to CRT DISPLAY FIX 
CSS DEF FN CORRECTION 
RENEWALS 

*#**#^^7 IMPORTANT****** 



BROWNSTEIN 
LARRY SAMBUCO 
BROWNSTEIN 



See page 27 



PAGE 27 
PAGE 27 
PAGE 27 



PLEASE SEND TYPED MATERIAL FOR NEXT ISSUE TO: 



ROGER J. SPOTT 

13975 CONNECTICUT AVENUE 

WHEATON, MARYLAND 20906 



so 



FROM TEE EDITORS DESK 



Neededt Schematic and Info for SINGER FRIEDEN HSP-30 Serial printer (Modi £325) 
Please contact Larry Sambuco, 22 Fredrick Dr. Poughkeepste, NY. 1260^ 

CorrecttontThe last fix for OSS DEF FN (see page 16 last Issue) shoukd readt 
18FE BD0313 

New ftxt If you are not able to display the stack on your CRT1 or 1A board 
Larry Sambuco has a correction for the board. E7 Pin 1 should be 
clocked only by a jumper coming from E19 pin 12. Larry also put 
a 470 P/ # capacitor from E7 pin 8 to ground. Some Spheres have no 
problem In displaying the stack on the screen so check first before 
getting out the soldering Iron. 



64 Character screen fix for Chuck Crayne 0S1 Disk Operating System Editor: 



Address 

080E 

0815 

08DE 

08E6 

08F8 

0901 

091D 

0978 

0992 

0994 

0999 

09A6 

09AB 

09B0 

09BA 

09F5 

0A1A 

0A27 



for 



JLLlO 



U 2.0 
0CB3 
OCBA 
07DE 
0D86 
0D98 
0DA1 
ODBD 
0E1D 
0E37 
0E3A 
0E3F 
0E4Q 
0E50 
0E56 
0E60 
0EA2 
0EQ9 
0ED4 



Change 
E020 to E040 
E200 to E400 
20 to 40 
20 to 40 
20 to 40 
E200 to E400 
EO to CO 
E1E0 to E3C0 
E020 to E040 
20 to 40 
E1E0 to E3C0 
E1DF to E3BF 
20 to 40 
E01F to E03F 
E03F to E07F 
E020 to E040 
E01A to E03A 
E020 to E040 



In addition I have written a utility which Is used with the 0S1 version 
i.v but which could be also converted to version 2.0 . It sits up In BOM 
and performs the following.' ALLOCATE (to directory) 

KILL (remove filename from directory) 

DISPLAY (display the directory) 
EXIT (return to the calling program). 

This allows Basic, Forth, Pascal and other programs to have a command 
which gives control to the user of the file directory of that disk. The 
job of savvng and loading program or data files ts left to the calling 
program because each one will necessarily use a format which Is unique. 

Jeff 

BBB 



EEE 



NNN 



EE 



WW 




AA 



YOU MUST RE-SUBSCRIBE NOW 



There Is no money In the bank account to finance 
oo another Issue. Rising printing costs and postage 
SS. have eliminated our reserves. 
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I.HAVE BEEN USING..THE .BETA DIGITAL TAPE DRIVE. BY MECA ON MY 



SPHERE FOR APPROXIMATELY A YEAR. IN THAT TIME I HAVE FOUND IT TO 

BE_AN_EXTREMELY RELI ABLE_DRI_E . I_ WENT_TO.JTHIS.DRI VE BECAUSE. IT IS 

EQUIPPED WITH AN INTELLIGENT CONTROLLER (8035 WITH 2K ROM OPER SYS) 

Wm.CH_W.LOWS_.IT_T.0_ BE_EASILY___.0 J1AEPED_"..INT0 _A_PI A 

I AM USING STANDARD TDK (AD SERIES) CASSETTE TAPES INSTEAD OF 
THE_RECOMMENDED DIGITAL_.TAP.ES^WmCH^ARE_.CONSIDERABLY...J.ORE. EXPENSIVE- ___. 
CHEAPER TAPES CAN BE USED AND WILL WORK. BUT THE HIGH SPEED SEARCH 
O.F__JO..O._I.NCHES/SECOND_DEMANDS_THE_B.ETTER_J1ECHANICS_J.. FOUND_IN..THE___K 

SERIES OF TAPES. 
HE.RE_ARE_SOME_.OF_THJ__JILGH_.P_0.INTS_OJ__THE_DRI.VEj 

1. 512K BYTES/60 MIN CASSETTE. 

s 2__DATA_F_RMAT....IS_A . 2.5.6 _B„TE_BLOCK- PRECEEDED. BY..AN ID __. 

3. ANY RECORD CAN BE RE-WRITTEN WITHOUT DISTURBING THE ONE 

BEFORE OR. AFTER_.IT . __AS_ A . MATTER. OF_FACT... BECAUSE .OF THE 

DISK DRIVE APPEARANCE TO SOFTWARE, I SUPPOSE YOU COULD EVEN 
RUN_.JLT_UNDER_A. DOS._OF_ COURSE_AT_A GREATLY. REDUCED . SPEED . 



«.. THE FIRST DRIVE WITH THE INTEGRAL CONTROLLER COSTS $400.00 

AND_£X_TRA_JDRIVES_(DE_TO__.)._COST. AN ADD.IT I ONAL _*_7 .00 _ 

NOTE: THESE PRICES MAY HAVE CHANGED SINCE MY PURCHASE. 
..5__HIG__LE__EL__COMMANDJS__ARE_USED_TJD_ACCESS„AND CHANGE DATA. 

CONTROL THE DRIVE(S), ETC. . 
.6._..USES.-ONLY___PJ[A.CHIP__tBOT__A„-AND_B.___ES.)_ 



7. EACH TAPE USES AN UPPER AND A LOWER TRACK, SO NO REVERSAL 
OE__THE. -CASSETTE- 1 S_NECESSARY-_ — " 

8. OPERATION OF THE DRIVE IS 100 PERCENT SOFTWARE CONTROLLED 



IE 



<v 
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.9. HIGH SPEED SEARCH CAPABILITY BY COUNTING TAKE UP REEL 

REVOLUTIONS USING A TACHOMETER. THIS MEANS THAT IF YOU 
_H A VJ__ JUST-RE AD BLOCK.. .258 AND. THEN . WANT-TO -READ BLOCK 017, .-.. 
THE BETA WILL UNLOAD IT'S HEAD, AND HIGH SPEED REWIND 

TILL JUST-BEFORE BLOCK .017 IT- WILL-THEN LOAD THE .-HEAD AND 

PROCEED TO READ THE BLOCK. 

_J.O FOUR -MOTORS .- CAPSTAN, -LEFT - REEL, RIGHT-REEL ,_ -AND -- - 

HEAD LOAD/UNLOAD. 



"HERE'S THE TAPE FORMAT 

GAP - ID - GAP - 256 BYTE DATA BLOCK - GAP - ID - GAP - 256 BYTE 



DATA BLOCK - ETC. 



-THE ..WRXTE-AND. HEAD _DATA-.RATES_ARE.-50 -BYTES/SEC-WHJ CH_ WILL ...NOT. 



CAUSE ANY PROBLEMS WITH THE SPHERE. YOU CAN ALSO USE THE ON BOARD 
B.UJr-__._IJLJLHE_BETA _TO_.DO.-A-- "-BACK .GROUND-L-IAPJE -COPY-WLT.HOUT-THE NEED- — 
TO FIRST READ DATA' FROM ONE DRIVE INTO THE SPHERE, AND THEN SEND IT 
BACK_TO-.WRI.TE- IT -ON. ANOTHER -DRIVE- — IN- THIS-MODE -THE. ONLY -INTERFACE 
ACTIVITY WILL BE TO ISSUE A COMMAND TO READ FROM ONE DRIVE, CK ENDING 
STATUS ,-THEN- WRITE-THE-BUFFER-CONIXNTS-ONTXl-ANOTNER DRIV.E_ T-HE -DATA- 
NEED NEVER GO INTO SPHERE MEMORY. PRETTY NEAT, HUH ? YOU CAN ALSO 
_-.D0-.!'-P-EEKS- , L_AND--L'-POKESl , ---DIRECTLY--INTO- THE-BETA-BUFFER . - - . - — -— 

THE TOTAL AGGREGATE DATA IS ABOUT 385 BYTES/SEC WHEN READING 
MU LtT P L E B L C K S" "OF" D A T A~BEC A U S E~OF~~T H E ~GA P S AND ID'S. MECA ALSO HAS 
^ A FASTER DRIVE AVAILABLE BUT THAT'S MORE BUCKS AND MEANS CHANGING THE^ 



"ORIGINAL TAPE DECKS FOR FASTER TAPE DECKS (1000 BYTES/SEC) 



EI 
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INCLUDED -WITH THIS BRIEF - INTRODUCT I ON OF THE BETA IS . MY - 

"OPERATING SYSTEM" WHICH VERY CLOSELY DUPLICATES SPHERE CASSETTES. 
ALSO_,_.I.J?AD_LN_THE..EVENT JY.OU ..ARE NOT_WRIT.ING . OR READING AN..EXACT 
MULTIPLE OF 256 BYTES, WHICH HAPPENS QUITE NORMALLY. THIS MEANS IF 
YO.lL.WANT._TO._S A VE.„A .PROG RAM_.AT_*02 0_.T.O_$02C 6_THE. CODE_ WILL _J»AD..__CHE_ 



REMAINING BYTES SO A FULL BLOCK IS WRITTEN. AS THE BYTE CT IS RECORDED, 

YOU_ ONLY_HAVJE_TO ..SPECIFY .THE_.START__ADD.RESS. .WHEN ..DO.XNG . A_READ __.._. 

AND THE ENDING DATA ADDRESS WILL BE BUILT AT $3E AND $3F. ALSO, 

WHEM_..THE_AB.O.yj__EXAMP.LE.. REC0RD__IS__READ._.BACK.._.ONLY._,THE_CONTENTS 

OF $0200 TO $02C6 WILL BE READ INTO, AND THE EXTRA BYTES DISCARDED 
AGAIN_T.O_.COMP_LETE_.A_25^_BYTE_BLOCK_.IN_ORDER„TO _KEEP_._THE_BETA. HAPPY — 

BETA PARAMETER USAGE FOLLOWS: 



$33,34 = TBBB WHERE T IS A TRACK NUMBER FROM TO 7 AND B IS 
A . B L C K N U M B E R. . . F.R M ...0.0 ... T 0.999 . ..__ _ 



NOTE: TRACK AND 1 IS ON DRIVE 0, TRACK 2 AND 3 
__IS._ON_.D.RI_7.E._1_.._J_IC_. _ . 



$38,39 = NOT USED 
_$3 C_,_3D _____ S T A R T I _____ D_A T A_ A D D R E S S_ 



$3E,3F = ENDING DATA ADDRESS 



</ 



ROM 



ENTRY 



POINT' 



DESCRIPTIONS 



THE FOLLOWING LABELS WILL RETURN TO DEBUG WHEN FINISHED... 
ULBXJL E-UJiC-IXON— DXS-CR-IXT-XXXN $_0-0--3-3^-3iJ _$-0-O3C^-3-D $0D-3X ,-3 F- 



BINIT INIT PIA 

BWRITE WRITE FROM MEMORY 

ERXJUE) RXJID— XHI-Q— MXMORY— 



AND VERIFY 



N/A 

T-BBB 

-T-BB3- 



BINREW INIT PIA AND REWIND UNIT SEL'D TXXX 

BY $0033 (T) 
REWIND REWINDS UNIT SEL'D BY $0033 (T) TXXX 



N/A 

BEG ADR 
-BEG— A DR- 
N/A 



N/A 

END ADR 
-C-ALC4JLA-TXD- 
N/A 



THE FOLLOWING LABLES ARE SUBROUTINE ENTRY POINTS .. . 
LABEL FUNCTION DESCRIPTION $0033,34 $003C,3D 



$003E, 3F 



WRITE2 WRITE FROM MEMORY AND VERIFY 

READ2 READ INTO MEMORY 

VERIF2 VERIFY DATA (NO DATA XFER) 

RUXNU REW-IJilLS—UNJ-T—SE-L-LD— BY— $-0-0-33— 

INIT INIT PIA 

XXX USED ABOVE = DON'T CARE 



OC-X- 



TBBB 
TBBB 
TBBB 
-T-XXX- 
N/A 



BEG ADR 
BEG ADR 
BEG ADR 

-&/-A 

N/A 



END ADR 
CALCULATED 
END ADR 

JHy-A ■ 

N/A 



NO-TX— -U_ $D-0D9— LS— SX-T— I£!_ NON^XR-O— XX— A--RXJ1-D-, — VER-I-FY^— OR-TAP-E 

PROTECTED ERROR OCCURS AND CLEARED OTHERWISE, SO IT IS TESTABLE JUST 
AS IF YOU WERE USING THE SPHERE CASSETTES. ALSO, IF $003A IS ZERO, 
NO PRINTING WILL OCCUR ON THE CRT, OTHERWISE THE USUAL WRITE AND READ 

PjO.SJLXI-0.NS IN TH.E— U-P-P-ER— RXG-HJ— -HA-ND— OF— T-HX— C-RX— L'XXX— BX— UP-DA T-E D—A-S-D A XA 

IS READ OR WRITTEN TO THE CONTROLLER. I DO. AN ENQUIRY COMMAND 

AT THE COMPLETION OF EVERY COMMAND AND WILL PRINT IT AT THE CURRENT 

CURSOR POSITION UNLESS $003A IS ZERO. 

NOTE 2: THE "BOOT" AT $F818 DOES A PIA INIT, REWINDS THE DRIVE 
SELECTED BY THE LEFT NIBBLE OF $0033(T), READS THE SPECIFIED BLKCBBB) 
INTO THE ADDRESS SPECIFIED AT $003C, TESTS $0009 FOR AN XRROR, AND JUMPS 
T-O— T-HX—AXD-RXS-S— A-T— $DJX3-C-XO-R— XXE-CUJX-LOtt— I F NO E RR-OR-, — CR— RXX4J R-N-S— T-O— D E BUG-^- 

NOTE 3: PLEASE NOTE THAT THERE ARE THINGS IN THIS MONITOR THAT 
SHOULD BE OBVIOUSLY "CLEANED UP" BUT WEREN'T BECAUSE OF LACK OF TIME. 
T-HXS— MONXXOR— WXXX— WO-RK-O-UXXX— NXCXX-Y-, — B-U-T— XX— -YO-U-SXE— SOME-T-HX-NG— Y-OU— DON--'-T— - 
CARE FOR, FEEL FREE TO CHANGE IT. 

SOME PROBLEMS I CAN THINK OF ARE... 

1. IF $003A IS ZERO AND AN ERROR OCCURS, I DO AN ENQUIRY 

C-OMWJUUJ— XQ— T.HX— C-O-NXX-OXXXX— AND— P-RX-NT-J-T— A-N-YW A Y-, IX— I— HA-D- 

FOLLOWED THE USE OF THE PRINT/NO-PRINT FLAG ($3A) 
STRICTLY, I SHOULD NEVER PRINT UNLESS THE FLAG IS 
NON-ZERO. 

2-, T-HX— CCCUR-RX-NCX— OX— A-N— JI-E-C-HO-2— XRR-OR— UXLX-AXW-AXS-GO— T-O 

THE MONITOR. I SHOULD RE-CODE THAT AREA TO ISSUE AN 
ABORT SEQUENCE TO THE BETA, SET $0009 NON-ZERO, AND 
RETURN TO THE USER OR DEBUG DEPENDING ON THE ENTRY 
P-Q-I_KT— USX-D-, ■ : 
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&03C 


BEGRDR 


EQU 


$3C 


0007 


BELL 


EQU 


$07 


6033 


BLKNO 


EQU 


$33 


F048 


BRDhTh 


EQU 


JF04O 


F04i 


BRDCTL 


EQU 


$F04i 


F043 


BWRCTL 


EQU 


$F043 


F042 


BNRDRT 


tQU 


$F042 


0018 


CLRCKD 


EQU 


$18 


908D 


CR 


EQU 


$8D 


FE4F 


DEBUG 


EQU 


$FE4F 


FB83 


DSF'KD 


EQU 


$FB88 


FE:»SE 


DSPWR 


EQU 


$FBGE 


U03E 


ENDRDR 


EQU 


$3E 


858D 


ENQCI1D 


EQU 


$858D 


E8BF 


ERR 1 WD 


EQU 


$E0BF 


001B 


ESC 


EQU 


$1B 


009R 


LF 


EQU 


$8fi 


E048 


LIME2 


EQU 


$E848 


F888 


KBDflTR 


EQU 


$FO00 


F08i 


KBORCO 


EQU 


$F08i 


003ri 


NOPRNT 


EQU 


$3R 


FCAD 


PUTCUR 


EQU 


$FCfiD 


0012 


RDCHD 


EQU 


$12 


'.ROD 


REWCi'iD 


EQU 


$ifi8D 


00i33 


STPTUS 


EQU 


$83 


BFF3 


SWIFLG 


EQU 


$BFF3 


0014 


: TRKCHD 


1 EQU 


$14 


BFFH 


UIRVEC 


EQU 


$BFFfi 


BFFD 


UNHVEC 


EQU 


$DFFD 


BFF6 


USWVEC 


: EQU 


$BFF8 


0010 


VERCIC 


' EQU 


$16 


0O88 


WKCilD 


EQU 


$8000 


001? 


WRCHD 
* 


r ,-i; ; 


$17 


F818 


ORG 


$FB1: 


j 



F818 BD FSS6 
F81B BD FRiD 
F81E DE 3C 
F828 36 83 
F822 2b 82 
F824 bL 88 
F826 7E FE4F 



7D BFF3 



F829 

F82C 27 83 
F82E 7E FE4F 



* BOOT LORD FROH BETH 

JSR INTREN 

J5F: RCRD 

LDX BEGP.DR 

LDRR SThTUS RD ERROR ? 

BNE ■ fiftRGH 

JilP 6/ X GOTO USER PGii 
flHRGH JHP DEBUG 
* 

* CK HON I TOR OR USER SWI 
+ IF SNIFLG=8 THEN USER 

* IF SWIFLGOO THEN HON 
* 

CKSKI TST SNIFLG 
BED USN1 
JI1P DEBUG 



* GOTO USER SWi HRWDLER 

P83i ?E DFFC USNI JHR USWVEC 
* 

P840 ORfr $F8W0 ' 

* 

F848 BD F&bfi BINIT JSR INIT 

F843 7E FE4f DEBG JilP DEBUG 

F84G BD F058 DWRXTG JbR WSIiL-2 

F843 28 F8 • ERR DEBG 

F84B BD FTilS BREfiD JSR REHD 

F84E 28 F3 BR'fl DEBG 

F858 BD F338 RRITE2 JSR NRITt 

Ff:53 3B 88 LDRR SiH'i'US. 

F855 27 80 BED VER1F2 

F857 38 RTS 

F858 BD 0C BJNRGD BSk INTRtW 

F85;i 28 E? BKh DEBG 

F85C.7E FfiiB REHD2 JKP REfjD 



VEkiF2 JHR 



/LKii-V 



roji- ,lz rrio _ _ ^ 

F862 & ; 2R RcW.tuL- 1 Bbk kI-uNl 1 
F'P.b* 28 DD BRH DEBG 

F86G 8D 82 INI REN BSR iNIT 
"86o 28 24 BRR RWiND 

•■+- 

F86H 4F INIT CLRfi 

F86B B7 F84i STRR BRDCTL StL__ 
F86E B7 Ft~3 SiilG BWRCTL _.DDK^ 
F87i B7 F848 STRR BRDRTli H=lNr 

COHR 

STRR DMRDRTR b-'JUi 

LDRR ir*2C 



F875 B? F842 
F878 86 ill- 
F8?H B? F84i 
F87D 7D F848 
F888 8G i!t 



•-. i M» 



HH tiKl'CIL ii 



fi=-:- 1 1. 



Ml 






ibi BRDHTh RES H i"' l - ! 

, w ■ J ,, ww LDi'iH #?2E_ ' ^^^ 

F882 B7 F643 - Sl'Hn BWRCTL B--IRQj bi'd' i 

F88b 8D 13 BSR WTELF 

FSB? 88 18 LDHH ffCLKUflU 

FS88 B7 F842 STRH BwRDm 

F83C 20 60 BRH WtELF 

* SR_ TRfiCK USING LEs-T 

* NIBBLE OF '"BLi(NO y fiND 
. * [>q ft REWIND. 

* 
F88E Bl : F983 Ri-IIND JSR SELTRK 
F83j. CE iROl-' LDX #REwCI1D 
F8GK iff 88 STK WKCUD^ 

c 8-in 8D 13 BSR SNDCfID 

fm 20 3C BRH ENDOP 

* 

* LOOP FOR 4 HS OR UNTIL 

* BETH SENDS ft LINE hD. 
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FSSfl 5i r 
F83B 5ft 
FS9C 27 0C 
F83E 7D F64i 
FSAl 2R F8 
F8A3 B6 F649 
F8R6 8i Gfl 
F8R3 26 Fi 
F8BR 39 



F8AB GE OOOO 
F8AE H6 66 
F860 8D 67 
F8B2 BD F930 
F8B5 84 BF 
F8B7 Ri 06 
F8B3 27 0C 



HTELF CLRB 
CTDOWW DECB 

BEQ RTNi 

TST BRDCTL 

BPL CTDOWN 

LDfift BRDATfi 

CMPR #lf 

BNE CTDOWN 
RTNi RTS 

* SEND CUD TO BETfi AND 

* CK FOR PROPER ECHO. 

SNDCHD LDX #UKCMD 

LDrtfl 0/ X 

BSf<- SNDRCV SEND CUD 

JSR RDBETR READ ECHO 

HNDi'i HOf IGNORE BIT6 

CMPR 0, X ECHO OK ? 

BEQ NX i BYT 

* 



F8BB 


3i 




erre ins 


h 8BC: 


3i 




INS 


'8BD 


CE 


H-.f' 


LDAB #'E 


F8BF 


07 


t-1 '--; 


ERRN STAB STRTUS 


F8Ci 


r r 


E6DF 


STAB ERMND 


FSC4 


?E 


FE4F 


Ji'iP DEBUG DIE ! DIE 1 DIE! 


F8C7 


00 




NXTBVT I NX 


F8C0 


fib 


06 


LDRh 0, X 


FSCfi 


8D 


4D 


BSR SNDRCV 


F8CC 


Hi 


06 


CMPw 0..X ECHO OK ? 


FSCE 


i'b 


EB 


BNE ERRE 


F8M 


o^_ 


OD 


CMPR #cr 


1 Ct^w 


26 


F3 


BNE NXTBVT 


F8D4 


20 


C4 


BRR WTELF 

* GOOD END = 87.. OD, OR 

* BAD = vc ERR. 07. Qlh 0fl 


F8D6 


8D 


58 


ENDOP BSR RDBETR 


F8D8 


8i 


G7 


CKBELL CHRP, itBELL 


F8DA 


26 


Ffl 


BNE ENDOP 


F8DC 


crr- 




CLRB 


F8DD 


81? 


5i 


BSR RDBETR 


F8DF 


8i 


OD 


CMPR #0R 


F8E1 


iif' 


03 


BEQ RDLF 


r ceo- 


ir-y 




HAVERR cohb 


C 8E4 


97 


09 


STRR STRTUS 


. '8E6 


80 


»*y 


ROLF BSR RDBETR 


F8C0 


Ox 


OB 


CMPR #LF 


F8EA 


26 


FA 


BNE RDLF 


F8EC 


5D 




TSTB 



BETti 10 DRIVE 
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F8ED 26 08 
F8EF 7F 0009 
F8F2 96 3Fi 
F8F- 26 01 
F8F6 39 



F8r7 86 OD 
F8F9 BD FCP.D 
F8FC CE 050D 
F8FP OF 06 
F90I 8P R8 
1-903 8D 2B 
F905 8i 07 
F907 27 Fh 
F903 81 OH 
F90B 27 % 
F90D CO FUvj 
F9iO 20 Fi 

F3i2 97 03 
F9i4 B7 E6BF 
"3i7 20 BD 



F9i9 8D 07 

" ! xb OL-' X-i 

F9iD 8i IB 
F91F 27 Oi 
F92i 39 



F922 7D- F643 
F925 2R FB 
F927 70 F642 
F92R B7 F942 
F92D 7E FB6E 



F936 7D F64i 
F333 2R FB 
F335 EG F646 
c 938 7E FB88 

F93B C6 17 
F93D 8D 3D 
F93F 96 3F 



:R - 05/24/00 , 

RSSERDLER PAGE 4 . 

BNE DOENQ 
CLR STRTUS 
LDRR NOPRNT 
ENE DOENQ 
RTS 

* PRINT CURRENT DRIVE 

* STRTUS ON CRT. 

DOENQ LDRR SCR 

JSR PUTCHR 

LDX ttENQCHD 

SIX WKCMD 

BSR SN[:'CHD 
ENQ BSR RDBETR 

CMi-'R #BELL 

BEQ ENQ 

CMPR #LF 

BEQ RTNi 

JSR PUTCHR 

BRR ENQ 
•+■ 

ERROR STRR STATUS 

STAR ERRIND 

BRR ENDOP 
.+• 

* NOTE: IF ESC CHRP IS 

* NORMAL DRTR, IT IS 

* SENT TUICE. 

* . 

SNDRCV BSR WRBETR 

BSR: RDBETR 

CMPR #ESC 

BEQ MRDETR 

RTS 
* 

* WRITE fi BVTE TO BETA 
* 
WRBETR TST BWRCTL 

BPL WRBETR 

TST BWRDRT RESET IRQ 

STfifi BWRDRT 

JMP DSPWR 
+ 

* RERD H BVTE FROM BETA 

RDBETR TST BRDCTL 

BPL RDBETR 

LDRR BRDRTR 

Ji'iP DSPRD 
* 

WRITE LDAB #WRCMD 
BSR SETUP 
LDRR ENDhDRM 
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F341 Db 3E LDRB ENDADR 

F943 98 3D SUBfi BEOADR-M Bfi = BYTE 

FS45 D2 3C SBCG BEGRDR COUNT. 

F347 37 PSKI3 

F948 16 7RB 

F949 8D CE GSR SNDRCV WR LO CT BVT 

1-340 10 sen 

F94C 33 PULB 

F94D 41) TSTfi ECHO OK ? 

F34E 27 02 BEQ WC:T2 

F950 7E F0D8 WCTERR Jl'iP CKBElL 
* 

FS53 1? WCT2 TBfi 

F954 8D C2 BSR SNDRCV WR HI C7 BVT 

F356 ii CBfi ECHO OK ? 

F357 26 F7 BNG MCTERR 

F359 Cb FE LDRB #256-2 B=13VT CTR 

F95B 0£ 3C LDX BEGRDR 

F35D Fib 08 MR! LDRR Q.. X 

F35F 8D 08 BSR SNDRCV 

F36i Ri 06 CHPR 0, X ECHO OK ? 

F963 27 03 BEQ KR2 

F365 7E F8D8 JHP CKOELL 

F368 5R WR2 DECB UPDATE BVT CTR 

"963 9C 3E CPX ENDRDR 



F96B 2? 03 
F96D 00 
F96E 20 ED 



BEQ CKWPAD 
1NX 

BRR WF-1 
* 

* IF BOO THEN WRITE 8'S 

* TO FINISH ft 256 BVTE 

* BLOCK. 

CKWPAD tstb 

BEQ NOWPAD 
URPRD CLRR 

BSR SNDRCV 

DECB 

BNE WRPRD 



F376 5D 
F371 27 06 
F373 4F 
F374 8D R3 
F976 5A 
F977 26 FA 
F973 7E F8D6 NOWPRD JHP ENDOP 
* 

* SEL TRRCK, STORE CliD, 

* BLOCK CT, ADDITIONAL 

* BLOCK CL AND SEND 

* RLL TO BETA. 
* 

F97C 37 SETUP PSHB SAVE CHD 

F97D 8D OH BSR SELTRK 

F97F 33 PULB 

c 980 D7 08 STAB WKCHD , 

.•982 8D 24 BSR SETBLK 

F984 K> 45 BSR SETCT 

F986 7E FSRB JHP SNDCHO 



BETH 10 DRIVER - 05/24/00 *\ 

TSC 1'iNEf.ONlC RGSEHGLER PRGE C «— 



* SELECT TRRCK USING LEFT 

* NIBBLE OF 'BLKt.'O'. 
* 

SELTRK LDRR GLKNO 
LSRA 
LSRA 
LSRA 
LSRA 
ANDR #7 
ORRFl #*30 
STAR WKCHO+i 
LDRB #TRKCHD 
STAG WKCHD 
LDRB #CR 
STAB WKCHD+2 



F989 9k- 33 
F93B 44 
F33C 44 
F38D 44 
F33E 44 
F98F 84 07 
F33i 8R 20 
F993 97 Ol 
F935 C6 14 
F39? D7 00 
F933 CO OD 
F99D D7 02 



SNDCHD 



F93D BD F8RB JSR 

F9A0 BD F938 WTELF2 JSR RDBETR 
F3R3 81 O* CHPR #l.F 
F3R5 26 ry BNE WTELF2 
F3A7 33 RTS 

* 'BLKNO'' FORHRT = TBBB. 

* WHERE T IS TRK, AND B 

* IS STARTING BLOCK. 

* RT END OP THIS SUB, 

* ''WKCHD' = 

* CHD B B B , X X X X 
* 

F9F& CE 0006 SETBLK LDX &WKCHD 

F9AB D6 32 LDRB BLKNO 

F9R0 8D 17 BSR RSCRT 

FSA : E7 01 STRB 1, X 

F331 DG 3- LDRB BLKfiO+1 

F9B3 8D OD BSR RSCLM 

F3B5 E7 02 STRB 2, X 

F9B7 DG 3i LDRB BLKNO+i 

F9B3 8D OB BSR RSCRT 

F9BB E7 02 STAB: 3.. X 

F9BD CG 2C LDAB #''.- 

F3B ;: E7 0- STAB 4, X 

F3C1 33 RTS 

F9C2 54 RSCLFT LSRB 

F3C3 54 LSRB 

P9C4 54 LSRB 

F9C5 54 LSRB 

F3C6 C4 Or RSCRT RNDB 53-0F 

F3C8 CR 30 0RR3 #520 

F9CR 33 RTS 

* 

* RT END OF THIS SUB, 

* ''WKCHD'' = 

* CHD G B B , C C C 30D 
* 



BETR ID DRIVER - 05/24/88 

TSC MNEMONIC RSSEMBLER PAGE 7 



r"9CB CC 8888 

fsce rg es 

F9D8 Bl 12 
F9D2 27 38 
F9D4 DG 3E 
F9DG % 3F 
F9D8 36 3D 
F9D3 02 3C 
F9DC OB 62 

f9de C9 ee 

F9E6 £F 86 
F9E2 6F 67 
F9E4 50 



BETH JO DRIVER - 6>'24/80 

TSC MNEMONIC RSBE'"€LER PRGE € 



Frji-cr v-.-y / 4 



SETCT 


LDX ftWKCHD 




LDfifi 


6.1 X 




CliPH 


sRDCHD 




BEQ 


MRXCT 




LDRB 


ENDRDR 




LDRR 


ENDRDR+i 




SUBR 


BEGRDR+i 




SBCB 


BEGRDR 




liDDH 


#2 




RDCB 


#8 E-EXTRR BLK 


CT 


CLR 


6, X 




CLR 


7,X 




TSTB 






BEQ 


CT2RSC 





*. CONVERT BLK CT IN B TO 

* PACKED DECiflHL IN 

* UKCKD+6.. 7. 
+ 



F9E7 R6 67 


CT2DEU LtfHH {.• >< 




F9E9 SB 81 


RDDR *1 




F9EB 19 


DRR 




F9EC H.' 87 


strr 7. x 




F9EE R6 06 


LDRB C X 




"^9F6 89 88 


RDCB #8 




FSF2 19 


DRR 




F9F3 R7 86 


STRR 6/ X 




F9E5 5fi 


DECD 




F9F6 26 LF 


BNE CT2DEC 






* CONV PACKED DECIHBL 


IN 




* WKCMD+6.. 7 TO RSCII 






* IK WKCKD+5, 6, 7. 






*' 




F9FS EG 86 


CT2RSC LDRB 6, X 




F9FR 8D Cfi 


BSR RSCRT 




F9FC E7 85 


STRB 5, X 




F9FE Lb 67 


LDRB 7,X 




FR88 BD C8 


BSR RSCLFT 




FR82 E7 86 


. STRB 6.. X 




FR84 EG 87 


LDRB 7, X 




FR86 Si J BE 


BSR RSCRT 




FR68 L? 67 


STRB 7. X 




FRO* 26 8H 


BRR SETCR 
* 






* RLL RERDS USE RW EX 


TDu 

in.fi 




* BLOCK CT OF 255. 






* 




P'ROC C6 32 


HAKCT LDRB V2 




^fiSE E7 65 


STRB 5vX 




•Tii8 CG 35 


LDRB *'5 




FR12 E? 66 


STRB 6.. X 




FR14 E7 8? 


STRB 7,X 





r'RiC L? 88 
FR1R 39 



FR1B CG 12 
FFHD BD FD7C 
FR28 BD FD38 
FR23 Bi 87 
"R23 26 67 
FR27 BD Fy38 
FT:2H Bl 6^ : 
F-R2C 26 28 
F'R2E 16 
FR2F BD F936 
FR32 Bi 67 
FR3* 26 87 
FR36 BD F938 
FR3D Bl 8.- 
FR3B 26 1C 
FR3D DO 3D 
FR.3F 98 38 
FR41 D7 3F 



STRB B,X 
RTS 

■4 

* RLL RERD6 BSE R HRX ' 

* BLOCK CT OS WE DON'T 

* KNOW THE BLK CT. THE 

* 1ST 2 BYTES RERD RRE 

* THE BVTE CT WHICH IS 

* USED TO BET UP ''ENDRDR'' 

* RT &3E WHEN THE IUDEX 

* MRTCHES 'ENDRDR'', RERD 

* INTO HE*'; STOPS PNO IF 

* THE B REG - 6 WE ''RE 

* DONE. ELSE, THE BETH 

* RERD DriTH Js RCCERTED 

* TILL THRT BLK IS DONE 

* NOTE: BETR XfiiTS' $87 

* TWICE IF NORHRL DRTfH ' 
* 

RERD LDB8 #RDCi ; K' : 

JSR SETUP 

JSR RDBETR RD LO BVTCT 

Ci'tpR £BE1L 

ONE SBVi.0 

JSR RDBETR 

CFiF'R *BEll 

BNE P'ERR 
SR"'LO ThB 

JS^* RDBETR RD HI BVTCT 

QlFf; 2?RE_L 

JSR RDBETR 
CMPR *BELL 
BI>E CTERR 
FIXEND RD-DB BEGRL- : K+i 
RDCF; BEBhDR 
STRB EN'DRDR-^1 



Lb Ul> 



SETCR LDR3 #CR 



FFi43 


97 


3E 


STRR ENDRDR 


FR45 


CE- 


FE 


LDRB *256~2 


FR47 


DE 


3C 


. LDX BEGRDR 


FR4D 


BD 


Fy38 


RD1 JSR RDBETT 


FR4C 


R7 


06 


STRR 6; X 


FR4E 


Bi 


87 


CilPR #BElL 


FR56 


£.''-"' 


6B 


BnE RD2 


FR52 


BD 


FB38 


JSB RDBETR 


FR55 


*!"*•'• 


07 


CRRR ?BELL 


FR57 


ill" 


04 


BEQ RD2 
* 


c R5y 






RDERR EOU * 


•Ti5y 


'5F 




CTERR CLRB 


FR5R 


7E 


F8E3 


Ji-iP HRVERR 


FR5D 


5R 




RD2 DECB 



C-:l;i?- 10 DRIVER ~ OS^-ZOO 

TSC MENONIC RSSE^BLBR PRO£ 9 



,-A5£ DC 3E 
F ; Hfc.6 27 OS 
F-RG2 00 
FAG3 20 i-4 
FRG5 5D 
FRGG 4? 6f« 



CP) ; ' ENDROR 
BED. CKRF'RD 
INK 

BRP RDi 
CKR p RD TSTB 
BEG' 1 NORPRD 



FRGO 2? ER 
FR70 2G F6 



FR72 CG 41 
FR74 5R 
F'R75 26 FD 
FR7? 7D F0^i 
FH='H 2R 63 
FA7C 7E FODG 



FRGG BD FS'30 PDRRD JSR RDBlFR 
FRGR 01 67 CI'iPh aBELL 

BBC RDERR 

DECS 

ONE RDPRD 

* THIS DELftV ALLOWS BETR 

* TO SEND ERROR INFO IF 

* IT OCCURRED ON END BUG 

NORPRD LDRB *G~ 
DLV DECB 

BNE DLV 

TST BRDCTL 

BPL NRDERR 

jj'iP ENDOP 
+ 

* NOW WE "ELL THE BETR TO 

* ABORT THE REMINDER OF 

* THE 25G BLOCK' RERD BV 

* RN ESCR p G SEGUENCG. 
* 
NRDERR LDhh -EEC 

JSR MR BETR 

LDfiR- -C*__ 

JSP WRBETFi 

Ji'lP ENDO p 

VERIFY LDRB ifVGRCHD 
JSP SETUP 
JHP ENDO-' 

* THIS CODE IS THE KECfi 
"* SUPPLIED FLOWCHART FOR 

* INjTIRL BR INGOT' Or ■ THE 

* BETR DRIVE 

.* 

FRO- BD FOGh BETHON JSR INIT 
FR97 CD 10 LOOP BSR TOBETR 

p.-pjC(Ci c : [j yy BE'P TOCONS 

BRR LOOP 
* 

TOCONS LDRR BRDCTL 
BPL RTN2 
LDRR BRDRTR 
CI1PR #BELL 
BEO RTN2 
CHPR *LF 



Ffl?f OB IB 
FRO! BD FDL2 
FRO^ 00 CD 
FROG BD FD12 
FR8D t"E E8DG 

FROG CG IB 
FFfGE BD F9 7 C 
FRBi 7E FODG 



FRDB 20 Fm 



FR9D B6 F641 
TiRO 2R 6E 
.•*RR2 B6 F846 
FRR5 01 67 
FRR7 27 67 
FRRD 01 6h 



BETR 10 DRIVER •• 05/2-'" ytf 

TSC WC'iONlC HSSt r 'BLER PRGE 16 



1 



FRRB 27 OS 
FRRD 7E FCftD 
FRBO 3D 

FPB1 BG E043 
FRB4 2R FR 
FRBB BB FOCI 
FRBD 2R F5 
FRBB BO FG66 
FR3E EG F642 
FRC1 01 22 
FRC3 20 65 
FRC5 31 
FPCG 31 
FRC7 7E FE4R 

FRCP B7 F842 
FRCD 3D 



BEO RTN2 
JI1P PUTCHR 
RTN2 RTS 

TOBETR LDhh BWRCTl 
BPL P.TN2 
LDRR KBBREO. 
BPL RTN2 
LDRR KBDhTR 
LDRB Bl-JRDRT 
CHr-'M £i'22 
BNE MRB 
INS 

J!1P DEBUG 
* 
NRB STRfi BWRDRT 

RTS 

O'r'T PhGj f : 'RT. NOG 

END 
NO ERROR 'S> DEiECTGD 



SVMBOL ihBL 
RRRGi-i F02G . 



RSCLFT F9C2 



RSCRT 


FDCG 


BEIOiiL'^' 


I-*-'-'- <{ ' 


BELL 


0037 


BETHON 


FFi'34 


BINIT 


F040 




ROGO 


FBLKNO 


&iiS 


BRDRTR 


FO^y 


DRDCTL 


FO-i 


BRERD 


F04B 


PWRCTL 


F043 


BNkPRT 


F042 


B WRITE 


F04G 


CKBElL 


FODG 


CKRRRD 


F^GG 


G-SMI 


F82R 


CKwRRL ; 


ES'7G 


CLRCHD 


0010 


CR 


006D 


CT2RSC 


F9F8 


CT2DEC 


F9E7 


CTDONN 


F ORB 


CTERR 


FR59 


DEBG 


F043 


DEBL«j 


FE4F 


DLV 


FFl74 


DOENO 


EOF? 


DSPRD 


FBOO 


PSF'UR 


FBGE 


ENORDR 


063E 


ENDOP 


FODG 


EiiQ 


F903 


ENQCHB 


OdOD 


ERRE 


F8BB 


ERRIND 


E6BF 


ERRN 


F8BF 




F912 


ESC 


O01B 


fixenl- 


FR3D 


HRVERR 


FOES 


INIT 


FOGR 


INTREm 


FOGG 


KBDRTR 


F 060 


KBLiREO 


F 601 


LF 


600ft 


LINE2 


E646 


' .OOP 


Fft9? 


KiRKCT 


FROC 


.WPRNT 


003R 


tftRPRL 


« FR72 


NOWPRl 


' F07S' 


NRDERk 


FR7F 


mxtbsh 


' F0C7 


PUTCHP 


• FCRD 


RDi 


Ffl49 


RD2 


FR5D 



BETR TO DRIVER - 65/2-4/80 

TSC WCNONIC R5SE^)LER PR6E li 



/ » 



i<Dt£7R 


F93* 


RDCiC' 


8612 


RDERR 


rft.59 


ROLF 


F8EG 


RDPRD 


FR68 


REAL? 


FfllB 


RER02 


ESr-C 


REwCMD 


1h3L« 


REWIND 


F88? 


RTN1 


FSflfi 


RTN2 


FhBu 


RUIND 


F88E 


SmVlO 


FR2E 


SELTRK 


F989 


SETBLK 


FS'hS 


SETCR 


FRib 


SETCT 


F9CB 


SETUP 


F97C 


SNDCMD 


F8hD 


SNDPCV 


F919 


STRTUS 


££■69 


SwIFLG 


BFF9 


TUttlH 


Fftei 


TOCONS 


FR9D 


TRKCNU 


K'i- 


UIPVEC 


£Ft : H 


UHMVEC 


E'Fmj 


USi'i I 


F831 


USWV'EC 


&Ff'fc. 


VEftCtfi? 


i;,hi»j 


VERF2 


F85F 


VES1FV 


Fh8C 


WCT2 • 


F c ' = »"' 


UC'ffcfc'R 


F'i'"jb 


WKiJf'k-' 


6&y^ 


WRi 


F95L' 


WR2 


F968 


I'iRD 


f- RCR 


WRBETR 


F922 


WRCMD 


6*17 


WRITE 


F93B 


WRITES 




WRPRD 


F973 


WTELF 


F89R 


WTELF2 


F9RS 






"RVl y 


Jijk'; > v 







SfHE*E<£=$>&ETA fv-rERFfird 



V 



SPHERE 
PI A 



sfmZre 
ptft 




6et^ 

1° H^ST 




Beta 

interface 
from ho-st" 



$> 



67 






Cfl3 



Cf\\ <^ 



6fti. W*5 b«m«vlj 






cB3 



-^» IWPUi 5TR«8E 






CB1 <T 



bmrt RcvD 



3 PC Tb S>ffir;ft£ 



!MlAODUCTI0jv> 



Inc. TC-3 CASSETTE lull 
PROGRAM STORAGE FOR :>>, 
EDAhD PLUGS INTO ONE 1 
ELIMINATING THE INCGNVi 



CONNECTION IS MADE TO A 
TWO AUDIO CABLES. 



UAu. UDARD PROVIDES HIGH 
'PC COMPUTER SYSTEMS. THE 
SLOT OF THE SWTPC MOTHERBOARD. 
"iiENCE OF A SEPARATE CABINET. 



■■'ERFOkMAITE 
INTERFACE 



STANDARD 



CASSETTE RECORDER THROUGH 



THE MA J 
RELIABI 
A 4K FI 
FORMAT 
or THE 



OR DESIGN GOALS FOR THE TC-3 WERE SPEED AND DAT* 
LITY. THE INTEL; ACE OPERATES AT 4800 BAUD AND 



LE IN 8 SECONDS 
SIMILAR TO DISK 
BOARD ARE COMPAkmB 



DATA IS RECORDED 
SYSTEMS, AND THE 
TO THOSE OF 



LOADS 



IN n MODIFIED FM 
SPEED »,nO RELIABILITY 
MINI-FLOPPY DISKS. 



iDDI 



TH' 

K 
I 



TION 
3 IS 
CITY 



TO READiHu AND WRITING IN HIGH SPEED BINARY 
CAPABLE OF HEADING OR WRITING CASSETTES IN 
STANDARD FORMAT WITHOUT ANY MODIFICATION TO 



SAb 

ERFACE SOARD; ALL FORMAT TING IS 



THE 



UNDER SOFTWARE COhIROL. 



THE TC-3 fl£.SO PROVIDES m 

CA r u'LE UF DIRECTLY SINK 

I LlL HANDSHAKE AND in) fn 

DATA OUTPUT POkT, OR CAN St :iSED P 

CONTROL THE CASSETTE T P/Oj SpOrtT . 



l-ULLY BUi i ERl D 

NG 4 MA AT 30 

XL I CAPABILi i V 



8- ,. I T OUTPUT PORT 
VOL IS. THE PORT HAS 
FOk USt AS A PmRALLEL 
RETE OUTPUT LINES TO 



CASSETTE RECORDERS AND TflftS 



THE TC-3 IS A 
DECENT RECORf 
PERFORMANCE, J I 



i\ 



Wl 



USE WITH 
A DECK OS 
C" ^PC'IENT 
S h.ERS, 
DESIGNED 
RECORDERS 



THI 



VERY NIC. 
'AND Ql. 
i I C h i 
IS A 
(S FROM A 
AN AUDIO 



X 



i- M O.-.rlnN tL 
TV TAPES 10 
S CAPABLE. 



device . 

BE ABLE 
THE IDE 



3 



A ... 



OF- THE- LINE 



IN 

uK i'u'iPLlFIi 
TO PROVIDE i 
TH THEIR 



iU 



w J. 



ADDITIONAL FEATURES TH 
TION THEY GENERALLY 



60-00 fuota; 

THE REQUIRE 
RECORDING I 
ERAL DfCkS 
PE^urv,XD F 
IN THE $60 
GENERALLY RELIAB 
VANTAGES AS WELL 



£ COUNTERS, 
AUDIO CAT 
MPROVES THE 
RANGING i M 

E AWL E" SLY .-. 
CLASS THAT 
AT 



RE' OKDcK IN TH-,! IT IS 

SYSTEM AMD ThiXXFQRE H 

X THE PRE AMP L i FIER S 

v H BETTER FREQUENCY R£ 

DIET- IN AMPLIFIERS. C 

AT MAKE THEM DESIRABLE 

HAVE V'U METERS, ARE B 

HAVE SHORTER REWIND T 

' ES, AMD THE RE DUN DAN C 

DATA XX I ABILITY. W 

PRICE FROM $80 TO $150 

i' -T 00 BAUD. TnERE AR 

WQft.t WEIL AT 2400 BAUD 

4LX0 BAbu, AND THEY HA 



- . IT REOUIRES A 

TO DELIVER THE 
AL RECORDER F'X 
EREO CASSETTE DECK, 

DESIGNED TO BE A 
AS NO p UIlT-IN 
ECTION IS USUALLY 
SPONSE THAN SMALL 
ASSEITE DECKS HAVE 

IN THIS APPLICA- 
UILT BETTER, HAVE 
IMES, COME WITH 
Y OF STEREO 
E HAVE TESTED SEV- 

AND ALL OF THEM 
E SOME RECORDERS 
, BUT ARE NUT 
Vi :'T: ER DISmJ- 



CASSEHe- T/Y'ES ARE CRITICALLY I^XXMNT ;0 GOOD RESULTS. IT 
Jk N ,?L WOtTriWHILE KXPFRlMENTlI^fr XTH CHEAP TAPE... IT JUST WON' 
rPOtflDt RELIABLE PC*fO£MANCE. WE W'WE CONSISTENTLY HAI> 

I5u^ E 5LS E n ULTS < WI1 " MEM0REX 't R X-3 IN 30 OR 60 MINUTE LENGTH. 
OTHEifc HIGH OUTPUT LOW NOISE -CASSETTES MAY AUJ WORK WELL 

i.?H N0 Ln SE , 90 Mii ^ iE CASSETTES; 1HEY ARE THINNER „ ( D TEND* 
JAM, AND HAVE MORE PROBLEMS hlTH DROPOiT 



AND PI 



INT- 



TO 
THROUGH. 



/? 



CONNECT THE JPC TC-3 HIGH SPEED CASSETTE SYSTEM TO THE SPHERE 
- 2*100 BAUD TO LOAD 8K BASIC IN 45 SECONDS RELIABILITY - 



Chan Wai Yung 
P.O.BOX K-2296 
Kowloon, Hongkong 



The TC-3 is used with 600, 1200, 2*100, 4800 and 96OO baud by software to central. 
After ray testing it runs very reliable with 2400 baud is my desk recorder. The 
frequency is like FM format, so it is difficult to operate in portable recorder. 
Desk recorder has a good;. response to the audio frequency. 

HARDWARE PART t I built a broad and address F090 for the TC-3 PIA I/O port and 
connect the TC-3 as figure. 



SOFTWARE PART! 



The TC-3 software program is relocatable code, can be enter 
wherever available memory. I modify "as* 



0004 B7 8011 to B7 P091 
0022 BB A04F to BB 002A 
002F BI A04F to BI 002A 
0045 7A AQ4d to 7A 0028 
0067 F7 A04E to F7 0029 
0078 B7 0011 to B7 F09I 
0095 BB A04F to BB 002A 
00A0 b6 A04F to B6 002A 
00CI 7A A04D to 7A 0028 
00DF F7 8010 to F7 F090 



0016 7F AG4F to 7F 002A 
0025 B7 AQ4F to B7 002A 
0034 7E E0E3 to 39 0101 
005D F6 8010 to F6 F090 
006E 7F 8011 to 7F F09I 
0087 7F A04F to 7F 002A 
0098 B7 A04F to B7 002A 
00A5 7E E0E3 to 39 0101 
00CF F6 8010 to F6 F090 
00E4 F6 8010 to F6 F090 



0019 FE A002 to FE 003c 
0028 BC A004 to BC 003E 
003A F7 A04D to F7 0028 
0062 FI A04E to FI 0029 
0073 B7 9010 to B7 F090 
008A FE A002 to FE 003C 
009B BC A004 to BC 003E 
00AE F7 A04D to F7 0028 
00DA F6 8010 to F6 F090 
00E9 F7 8010 to F7 F090 



SAVE DATA TO TAPE t 

1. Load TC-3 software program in Sphere memory. 

2. Open 003c to XXXX begin address of data. 

3. Open 003E to YYYY end addres of data. 

4. Open write addres of TC-3 software. 

5. Desk recorder in record mode for a moment. 

6. Control J 

LOAD DATA FROM TAPE t 

1. Load TC-3 software program in Sphere memory. 

2. Open 003C to XXXX begin address. 

3. Open 003E to YYYY end address. 

4. Open read address of TC-3 software. 

5. Desk recorder in play mode. 

6. Control J 



I have never one bad load with 2400 baud. .••••••*« .«.»....•••••••••••••••< 



/■? 



CONNECT THE JPG TC-3 HIGH SPEED CASSETTE SYSTEM TO THE SPHERE 
- 2400 BAUD TO LOAD 8K BASIC IN 45 SECONDS RELIABILITY - 



Chan Wai Yung 
P.O.BOX K-2296 
Kowloon, Hongkong 



The TC-3 is used with 600, 1200, 2400, 4800 and 96OO baud by software to control. 
After my testing it runs very reliable with 2400 baud ia my desk recorder. The 
frequency is like FM format, so it is difficult to operate in portable recorder. 
Desk recorder has a good; response to the audio frequency. 

HARDWARE PART * I built a broad and address F090 f or the TC-3 PIA I/O port and 

connect the TC-3 as figure. 



SOFTWARE PART l 



The TC-3 software program is relocatable code, can be enter 
wherever available memory. I modify as J 



0004 B7 8011 to B7 F09I 
0022 BB A04F to BB 002A 
002F BI AQ4F to BI 002A 
0045 ?A A04d to 7A 0G28 
0067 F7 A04E to F7 0029 
0078 B7 8011 to B7 F09I 
0095 BB A04F to BB 002A 
00A0 b6 A04F to B6 002 A 
00CI 7 A A04D to 7A 0028 
00DF F7 8010 to F7 F090 



0016 7F A04F to 7F 002A 
0025 B7 A04F to B7 002A 
0034 7E E0E3 to 39 0101 
005D F6 8010 to F6 F090 
006E 7F 8011 to 7F F09I 
0087 7F A04F to 7P 002A 
0098 B7 A04F to B7 002A 
00A5 7E E0E3 to 39 0101 
00CF F6 8010 to F6 F090 
00E4 F6 8010 to F6 F090 



0019 FE A002 to FE 003c 
0028 BC A004 to BC 003E 
003A F7 A04D to F7 0028 
0062 FI A04E to FI 0029 
0073 B7 9010 to B7 F090 
008A FE A002 to FE 003C 
009B BC A004 to BC 003E 
00AE F7 A04D to F7 0028 
00DA F6 8010 to F6 F090 
00E9 F7 8010 to F7 F090 



SAVE DATA TO TAPE t 

1. Load TC-3 software program in Sphere memory. 

2. Open 003c to XXXX begin address of data. 

3. Open 003E to YYYY end addres of data. 

4. Open write addres of TC-3 software. 

5. Desk recorder in record mode for a moment. 
6» Control J 

LOAD DATA FROM TAPE t 

1. Load TC-3 software program in Sphere memory* 

2. Open 003C to XXXX begin address. 

3. Open 003E to YYYY end address. 

4. Open read address of TC-3 software. 
5« Desk recorder in play mode. 

6. Control J 



I have never one bad load with 2400 baud. 



+5 f 
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CSS BASIC with JPC TC-3 high speed save and load 

4C 4f4i 44 00 2D 00 53 4l 56 45 00 2D 46 54 4l 50 00 2D 6C 
54 43 48 00 2D 77 



SAVE 



LOAD XXXX 

TAP XXXX 
TCH XXXX 



save BASIC program to tape» as long as finish, 
a subroutine will create 4 digital hexadecimal 
code to appear - size of program length-. This 
4 code is as a block name of this BASIC program. 
Example 0IA4 appear, now IA4 is this program to 
be name. 

load BASIC program from tape. Example load 1A4 
(return Key) the name IA4 BASIC program to be load. 

append BAIC program from tape, as load command. 

chain BASIC program from tape. 



2DO0 BD 0A 54 DE 3C DF EC DE 3E DF EE DE 20 DF 3C DE 22 DF 3E 
DE 2C BD 09 63 8D 06 D7 3E 97 3F 20 05 BD FF 22 08 39 96 
3D 9B 3F 97 3F 96 3C 99 3E 97 3E BD XX XX DE 3E DF 22 DF 
24 CE 99 99 DF 3C DF 3E 39 20 BC 20 BD DE 20 DF 3C DE 22 
DF 3E BD YY YY 96 3E D6 3F DO 3D 92 3C 97 3E D? 3F 86 57 
97 ID DE 3E 8D 02 20 D3 DF 40 7E FE PC DE 20 DF IE DE 22 
DF 20 8D CE DE IE DF 20 39 8D C5 7E OA C6 



XXXX = TC-3 routine Read adress. 
YYYY = TC-3 write addres. 



JPC PRODUCTS FOR 



Editor's Notes 

We oannot legally print the 

full JPG software or schematics . 

The price is reasonable for 2400 

baud cassette capabilities. Also, 

your SIM board could be used for 

other serial peripheral devices 

instead. 
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High Perfornisrice Cassette Interface 

• FAST - 4800 Baud Loads 4K in 8 Seconds! 

• RELIABLE - Error Rate Less Than 1 in 10' Bytes. 

• CONVENIENT - Plugs Directly Into The SWTPC 

« PLUS - A Fully Buffered 8 Bit Output Port Provided. 

• LOW COST - $59.95 For Complete Kit. 

• OPTIONAL - CFM/3 File Manager. 

Manual ft Listing $19.95 
(For Cassette Add) $ 6.95 

TERMS: CASH. MC or VISA; Shipping & Handling SI 00 

Order Phone (505) 294-4623 
P.O. Box 5S15 
Albuquerque, N.M. 87185 




'JPC products 



J 



PART OF THE OPERATING SOFTWARE IS IN DECEMBER 1979 ISSUE. WRITE TO 

BOB- EW IS, 9322 LAUREL AVE., FONT AN A, CA. 92335 for help and the rest of 

the SOFTWARE. 
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XXXXXXXXX.XXXX 

m j co »v sn 



X X X X 

r\» f>» ro r>> 



XXX x x X 

-7T <N 0* n* 



X X X x 



OJ t^> — 
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c c- '- <- ^ £; c r_ 



tf 



-Jim DE LDX 


2C 




BD JSR 


0609 




DF STX 


2C 




DE LDX 


63 




39 RTS 






RT 8D BSR 


F4 


FIND 


DF STX 


6E 




. 09 DEX 






.09 DEX 






09 DEX 






09 DEX 






EE LDX 1 


<00 




DF STX 


6A 




8D BSR 


E8 


FIND 


DF STX 


A2 




09 DEX 






09 DEX 






09 DEX 






09 DEX 






EE LDX 


XOO 




DF STX 


6C 




CE LDX 


I006A 




A6 LDAA 


XOO 




Al CHPA 


X03 




26 BNE 


06 


ERR 


A6 LDAAX01 




Al CMPAX02 




27 BEQ 


03 


DIHGGK 


ERR 7E-JMP 


132F 




iGDK .6D TST 


X32 




27 BEQ 


06 


D A '<.'> 1 


6C INC 


XOO 




6C INC 


xoi 




6C INC 


X02 




I;ASi 1 D6 LDAB 


/ A 




LOOP 37 PSHB 






DE LDX 


6E 




BD JSR 


0353 




DE LDX 


A2 




BD JSR 


031E 




DE LDX 


6E 




8D BSR 


20 


INX6 


DF STX 


6E 




DE LDX 


A2 




96 LDAA 


6B 




lH)i 8D BSR 


18 


INX6 


: 4 A DEC A 






26 BNE 


FB 


I MX 


DF STX 


A2 




33 PULE 






5A DEC! 






26 BNE 


EO 


LOOP 


D6 L.DAI 


! 6C 




DE LDX 


63 




8D BSR 


09 


INX6 


DF STX 


A2 




DF STX 


63 




7A DEC 


006C 




26 BNE 


CF 


-BAB1 


.."' 03 INX 






tf>° . 08 INX 






08 INX 






08 INX 






08 INX 






. as tiJY 







MAT TRANS: 
SAMPLE PROCRAi, 



O 



0010 


RJUST= 3 


0020 


DIM A( 3,3),B<3,3) 


0030 


MATREAD A( 1,1 ) 


0040 


MATTRANS A< 1,1 ) B( 1,1) 


0050 


MATPRINT A< 1,1 ) J PRINT 


0060 


MATPRINT B( 1,1 ) 


0070 


DATA 1 ,2,3,4,5*6,7,8,9 


1 


4 7 




«J b 


3 


6 9 



'EST DIMS 



DIM ERROR 

FIX FOR BASE=0 



GET VARIABLE POINTER 
GET VALUE 

DESTINATION MATRIX POINTER 



GLi 



TRANSPOSED 



•VTT 



K 



DlfiSOK 



PIT 



BD 

BF 
DE 
09 
09 
09 
09 
E6 
08 

A6 
11 

27 
7E 
97 
08 

A 6 

97 

08 

A 6 

97 

08 

•. 6F 

' 08 

9C 

26 

09 

86 

\ A7 

: bd 

A7 
9C 



0609 

2C 

63 



i_ur~ 

JSR 

STX 

LDX 

HEX 

DEX 

HEX 

DEX 

LDABX00 

I NX 

LDAAXOO 

CBA 

BEQ 03 

JMP 13 

ST A A 6D 

I NX 

LDAAXOO 

ST A A 6E 

I NX 

LDAAXOO 

STAA 6F 



MitfSiiT I OH 



~ioir 



X00 



6E 
F9 



CLR 

I NX 

CPX 

BNE 

DEX 

LDAAfOl 

STAAXOO 

JSR 04BC 

STAAXOO 



63 
01 



"CONT 



DECK 



■07 

09 
D6 
7D 

27 
5C 
BD 

5A 

<i6 

20 



CPX 

BNE 

RTS 

DEX 

LDAB 

TST 

BEQ 

INCB 

JSR 04BB 

BECB 
ENE 

BRA 



6D 
009C 

01 



FA 
El 



DIHSOK 



ERROR MSG* DIM ERROR 



CLEAR 



CON1 



. A .1. I 



DEC) 



DECX 
PUT! 



Sunt Li... 






0010 Bill A : - ;>?■ 

0020 HATIBiv A 1 ' 
0030 MATERIA 



1 > 



1 










1 
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UN ICK 
SYSTEMS 



Sphere Corp. 

791 South 500 West 

Bountiful , Utah 8J4OIO 



18 5 SUMMIT DRIVE 

SANTA CRUZ, CA 

95060 

December 8, 1975 



a 



Dear Eric, 

I appreciate your returning my phone call this afternoon. I find 
your company very hard, if not impossible to communicate with by mail. 

I guess return mail is on the rock bottom of your priority list. 

o 
I was very interested by your comments on my 4'2'VMA method of refresh. 

When I originally designed the modification, I knew much less about the 

system than I do now. I put the modification in and the system worked 

for all the simple programs that I was running. I had been noticing 

lately that every once in awhile, the system would blow up when I would 

try to re-edit. an assembler program. 

Today I sat down and wrote a very simple program that locks the system 

really tight. No refresh occurs at all, except in the tight loop that 

the program is in» 

700 86 

701 00 

702 7E 

703 07 

704 00 

Included on a seperate sheet is the very simple fix for this problem, 
together with the entire mod in case you filed the previous one. 

I have tried it with the above tight loop and it works perfectly. I hope 

I caught you before you sent the next news letter out. Also included are 

some questions that you might answer • if you get time. 

Regards, 

William Nichparenko 



^^^r^de^M^u Mr— 



?o 



s 



UNICK 185 SUMMIT DRIVE 

SYSTEMS SANTA CRUZ, CA. 

95060 

December 8, 1975 

tS 2 VMA Method of Invisible Refresh. 

1) Cut the following lines: E37(lO) to E22(3). E35(9) to E23(8). 
Ei+7(7) to E23(9). This isolates E23(8,9) and E37(lO). 

2) Cut E28(2) to E28(13), E28(2) to Ei|5(D then jumper E28(l3) to El+5(l). 
Cut E28(12) to E9C3), E28(12) to E35(3) then jumper E9(3) to E35(3). 
Both E28(2) and E28(l2) ane tie points and need to be isolated. A 
jumper must then be run to re-connect the old trace. 

3) Do the following wiring: f f » 

A /J Vo«^. €T !«*- «. -U : y-. ! ' 

s> ■ .«_ 



j^_f . HvtLt; 
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William Nichparenko / . fj I } 
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February $ , 1976 

Mr. Eric Jameson 
Sphere Corp. 
791 South 500 West 
Bountiful ,Utah 81+010 

Dear Eric, 

. In reference to the LRC piinters, they are $195, 1-9,$186, 10-i+9,$l67, 50-99. 

Be&ow is a diagram for the memory protect circuit. It needs only the added 
7I4O2 in the blank socket on the CPU board* 

I would very much appreciate a copy of BASIC as soon as it comes out. 
Hopefully I can read it on my tape system, since that is what the Kansas City 
standard is all about. The only information I need to know is how you pack 
the data in the eight bit fjL&ld, and what sort of lables you use. I can then 
adjust ray software accordingly. A short description of the commands would also 
be helpful. 

Granted your newsletter will be out in 2 to 3 weeks , but if ray experience 
with the last newsletter holds true, the projected date will probably be delayed 
some, and it takes two weeks to get here by pony express. 




William Nichparenko, 
President 







>e. 4-2. &<£) 



Trace from EitfOi*) to E2j2(l^) 

must be cut. 

Trace from Ei|2(l5) to Ei*2(l)' and"E30(6) to El42(l5) must be cut. Then connect 

Ei|2(l) to E30(6), Ei+2(15) to Ground. 

The above defeats the write pulse during any addresses 800 to BPP hex. This allows 

normal editing of assembler programs around the proteoted program. If desired 

a protected assembler programs may be stored in the protected space, but 06 must 

first be loaded with 800, then re-edit via PC68. Location 20 must be loaded with 

the loaction of the last assembler byte also. 

IZ5 Sutttmit ZW«j S<utt* &w?. C/4 95060 40g:426-S336 
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0010 REM INVOICIMQ PROQRAM CSS/SWTP BASIC FOR SYSTEM, 

0020 DIM VC103, XC103 

0030 DIM A£C6), B£C10) 

0040 DIM ZC10D, WC103 .. 

0050 PRINT ^'MAKING, INVOICE PROQRAM*' 

0060 PRINT 

0070 DIQITS= 0. 

0080 PRINT M SELL TO COMPANY NAME 1 ' 

0090 tef*f L INPUT AC CD 

0100 PRINT sl ADDRESS" 

0110 "Hff L INPUT A£C23 

0120 PRINT M ZONE" 

0130 feST LINPUT A£C3> 

0140 PRINT u I NOI YE DATE" 

0150 INPUT A£C4) 

0160 PRINT vl INVOICE CNO) 1 ' 

0170 INPUT A£C5) 

0180 PRINT u HOW ITEMS" 

0190 INPUT M 

0200 FOR K=1 TO M 

0210 PRINT vl ITEM »' K 

0220 PRINT v, MODEL CN03 v 

0230 INPUT WOO 

0240 PRINT N| QUANTITY" 

0250 INPUT ZOO 

0260 PRINT VI BRAND NAME " 

0270 INPUT B£CIO 

0280 PRINT M UNIT PRICE 1 - 

0290 INPUT VCK) 

0300 LET XaO=ZCKXAS>V'CIO 

0310 NEXT K 

0320 PRINT vl HAVE OR NOT SPARE PARTS " 

0330 INPUT C£ 

0340 PRINT VI DISCOUNT %" " 

0350 INPUT D 

0360 FOR K=1TOM 

0370 LET XCK>=INTCCXCK5CAS3 1000+55/103/100 

0380 LET X=X+XCK} 

0390 NEXT K 

0400 LET X= I NTCCXC AS} 1000+5 3/103/ 100 

0410 LET X9=X 

0420 PRINT : PR I NT 

0430 PRINT V, PRINT OUT FROM 1=CRT, 7=TTY, 9=READY" 

0440 INPUT Q 

0450 LINE= 

0460 IF Q=9 THEN END 

0470 PRINT CN03Q 

0480 PRINT CN03Q,TASC43 A£C13 

0490 PRINT CN03G,,TABC43 A£C23 

0500 PRINT CN03Q,TABC43 A£C33 



23 



0510 
0520 

0530 
0540 
0550 
0560 
0570 

0580 
0590 
0600 
0610 
0620 

0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 

0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 



\i 



PRINT CNO>Q,TABC52>;A£C45 

PRINT CNOQjPRINTCNOG 

PRINT CN05Q,TABC26d; "INVOICE NO. »' -ACC55 

PRINT CN05Q,TABC26); U •" 

PRINT CN0)Q:PRINTCN0)Q 

FOR K=1TOH 

PRINT CNO)Q,TABC2:>; ZCIOj v, SETS (i ! TAB C12M* 1 MODEL 

Bccfo;* 1 »»/ J 

D1QITS= 2 

LET T=1NTCLOQCXCK33/LOQC105> 

IF XOOCQT:)=1000 QOTO 1490 

LET T=INTCLOQCXCK5VLOQC105> 

PRINT CN0)Q," BRAND RADIO. "' TABC48); ,, @US ''tVCIO; TABC64-TX 

US";XCK> ' J 



wao; M • 



><t 



710 
760 
760 

GOSUB 810 



QOSUB 
QOSUB 
GOSUB 



IF WCIO=710 

IF WOO=503 

IF WCK)=502 

IF W 00=3302 

DIQITS= • 

PRINT CN05Q 

NEXT K 

GOTO 890 

PRINT CN05Q,TABC123 
CNOQ.TABC125 
CN05Q,TABC123 
CN05Q.TAB-C12D 



PR I NT 
PR I NT 
PR I NT 
RETUR J 
PRINT 
PR I NT 
PR I NT 
PR I NT 
RETUR! 
PR I NT 
PR I NT 
PR I NT 
PR I NT 
PR I NT 



M 6 SOLID STATE PORTABLE RADIO. C6 TR. " 
v, 2 DIODE) FULL CIRCUIT, SW/MW BAND. lf 
vl COMPLETED WITH EARPHONE, UM-1 X 3" 
VI BATTERIES, IN PRINTED GIFT BOX." 



CNO>Q,TABC125 
CN05Q.TABC125 
CN0)Q,TABC12:> 



"6 

v, 2 



SOLID STATE POCKET RADIO. C 5 TR. 



DIODE) 
".WITH UM-3 



2- 1 FT, MW BAND, 
X 2 BATTERIES, 



CN0)G,TABC12O "PRINTED GIFT BOX. 



COMPLETE 



CNO)G.,TABC12) 
CNO)G,TABC12) 
CNO>G,TABC12) 
CNO)G,TABC12) 
CNO)G,TABC12) 



v, 10 SOLID STATE PORTABLE- RADIO. C8 TR. ' 
"2 DIODE) FULL CIRCUIT, SW/KW BAND. 1 ' 
"COMPLETED WITH UM-1 X 2 BATTERIES," 
"EARPHONE, CARRYING CASE, IN PRINTED" 
"GIFT BOX." .-RETURN 

GOTO 1530 



K64"T);"US^X: RETURN 
iRTS FREE OF CHARGE. ': 



LET T=INTCLOGCX>/LOGC10)): IF XCQT)=1000 

PRINT CNO)Q,TABC48) "TOTAL: '^'TAB 

PRINT CNO)G,TABC12) vl 1% SPARE PAR 

N 

DIQITS= 2: QOSUB 860: IF C£=^' HAVE " QOSUB 880 

IF D=0 GOTO 1020 

DIQITS= 

LET D£=STRCCD) 

LET D1=XCAS)CD/l00):D1=lNTCCD1CAS)1000+5)/l0)/l00 

PRINT CNO)G,TABC12)*D£;"% TO BE LESS DISCOUNT: 1 *J 

LET T=IMTCLOGCD1)/LOGC10)):DIQITS=2 

IF TCLT)0 THEN T=0 

IF D1CQT>=1000 GOTO 1570 

PRINT CNO)Q,TABC64~T)) %I US" D1 ' 

LET X=X-D1 



RETUR 



2V 



1000 LET T=INTCLOqCX)/LOQCl0)>: IF XCQT>=1000 QOTO 1610 
1010 PRINT CNO)Q,TABC48); M TOTAL: u ;TABC64-T); u US , ;X 

1020 PRINT CNOQ ' ■ ,. 

1030 PRINT CN0)Q,TABC125 V| T0TAL U.S. DOLLARS "j 
1040 IF XCQT>= 100000 QOTO 1060 
1050 QOTO 1140 
1060 LET Y= 100000 
1070 QOSUB 1650 
1080 QOSUB 2060 
1090 PRINT CNO>Q, M HUNDERED "; 
1100 LET X=CX1~X2XAS:>Y 

1110 QOSUB 2060 ,. 

1120 IF XCLT5999.99 THEN PR I NT CN0:>Q, M THOUSAND % ) 
1130 IF X=0 THEN PRIMTCN05Q, v, THOUSAND "; 
1140 IF XCQT)=1000 QOTO 1160 
1150 QOTO 1230 
1160 LET Y=1000' 
1170 QOSUB 2060 
1180 QOSUB 1650 
1190 QOSUB 2060 

1200 IF CX1-CX2CAS>10^CAS51000CQT5=1000 THEM X=CX1~CX2CAS:> 1 
o:>xas:> 1000: QOTO 1160 

1210 PRINT CN05Q, U TH0USAND "; 

1220 LET X=CX1-X2KAS5Y 

1230 IF XCQT)=100 QOTO 1250 

1240 QOTO 1290 

1250 LET Y=100 

1260 QOSUB 2060 

1270 QOSUB ^OtPRINTCNO^Q/'HUNDRED "j 

1280 LET X=CX1~X2KAS)Y 

1290 IF XCQT)=1 QOTO 1310 

1300 QOTO 1360 

1310 LET Y=1 

1320 QOSUB 2060 

1330 QOSUB 1650 

1340 if xi-cx2Cas:>ioxqt:>=i then x=xi-cx2cas)10):qoto 1310 
1350 let x=cx1-x2xas:>y 
1360 if xcqt}=.01 qoto 1380 

1370 QOTO 1450 

1380 QOSUB 2060 v 

1390 PRINT CN03Q, f AND CENTS ',' 

1400 LET Y=.01 

1410 QOSUB 2060 

1420 QOSUB 1650 

1430 QOSUB 2060 

1440 IF CX1-CX2CAS)10)V100CQT5=.01 THEN X=CX1-CX2CAS) 10^/10 

0:Q0T0 1400 
1450 PRINT CNOQ/'ONLY." 
1460 DIQITS= 
1470 LET X=X9 
1480 QOTO 420 
1490 LET W£=STR£CXCK)):T2=XCK>/1000:T3=INTCT25:DIQITS=0:T£=STR£C 



~2 ^ 



. T3>- 

1500 DIQITS= 2:Z£=RlQHT£CW£,6> 

1510 PRINT CNO>Q," BRAND RAD 10. « ; TABC43>. V, ©US «; VOO; TABC63~T); " 

•icon PDTO fiTf) 

1530 LET W£=STRCCX5:T2=X/1000:T3=1NTCT25:DIQ!TS=0:T.£=STR£CT35 

1540 DIQITS= 0:Z£=RIQHT£CW£,6X , 

1550 PRINT CNOjq,TABC48^ , TOTAL: %l ) TABC63-T^' 'US «; T£/' , »; Z£ ; 

1560 RETURN 

1570 LET W£=STR£CD1):T2=D1/1000:T3=INTCT25:DIG 1 ITS=0:T£=S1R£CT3) 

1580 D1Q1TS= 2:Z£=RIQHT£CW£,6) 

1590 PRINT CNO)Q,TABC63•-T^ , US , ;T£; A ^ ';Z£; 

1600 QOTO 990 

1610 LET U£=STR£CX5:T2=X/1000:T3=IMTCT25:D1QITS=0:T£=STR£CT3> 

1620 DIQITS= 2:Z£=RIQHT£CW£,6:> t 4i „ 

1630 PRINT CN0)Q,TABC43> »« TOTAL:' '; TABC63-T); « 'US'; T.£; ', «' Z£; 

1640 QOTO 1020 

1650 LET X1=X/Y:X2=1KTCX1D 

1660 IF X2CQT)=10 QOTO 1790 

1670 QOSUB 2060 

1680 ON X2 QOSUB 1700,1710,1720, 1730, 1740, 1750,1760, 17/0, 1780 

1690 RETURN 

1700 PRINT CNO}Q, v, QNE ,! i: RETURN 

1710 PRINT CNO)Q, x, TWO *'/: RETURN 

1720 PRINT CNODQ/'THREE ';: RETURN 

1730 PRINT CNO^Q/'FOUR l, j: RETURN 

1740 PRINT CN05Q, 'FIVE 4| ; : RETURN 

1750 PRINT CNO)Q,-'SIX l1 /: RETURN 

1760 PRINT CNCOQ /'SEVEN "; : RETURN 

1770 PRINT CN03Q/'EIQHT 'V: RETURN 

1780 PRINT CN0)Q, v, NINE v| ; : RETURN 

1790 IF X2CQT)=20 QOTO 1830 

1800 QOSUB 2060 _ „ , n 

1810 ON X 2-9 QOSUB 1880,1890,1900,1910,1920,1930,1940,1950,1960 

1820 RETURN 

1830 LET X3=lNTCX 1/105 

1840 QOSUB 2060 

1850 ON X3-1 QOSUB 1980,1990,2000,2010,2020,2030,2040,2050 

1860 IF X2-CX3CASX0XLTXQT50 THEN X2=X3 
1870 RETURN 

1880 PRINT CN05Q, V 'TEN "; : RETURN 

1890 PRINT CN05Q/' ELEVEN 'V: RETURN 

1900 PRINT CNODQ/'TWELVE (, ;:RETURN 

1910 PRINT CNO^Q/'THIRTEEN "; : RETURN 

1920 PRINT CNODQ/'FOURTEEN *V: RETURN 

1930 PRINT CNCOQ/'FIFTEEN 'V "RETURN 

I94O PRINT CN05Q/'SIXTEEN '•;: RETURN 

1950 PRINT CNO}Q, v, SEVENTEEN *) : RETURN 

1960 PRINT CN05Q/ 1 EI QHTEEN S V : RETURN 

1970 PRINT CN05Q/*NINETEEN V: RETURN 

1980 PRINT CNO^Q/'TWENTY '*>: RETURN 

1990 PRINT CNO:>Q, ll THIRTY ,f j: RETURN 



"Z (• 



2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 



PRINT 
PR I NT 
PR I NT 
PRINT 
PR I NT 
PR I NT 
IF POS 
PRINT 
RETURN 
END 



CN05Q, 'FORTY ";:RETURN 
CNO)Q,"FlFTY {1 ) : RETURN 
CNODQ/S1XTY 'V: RETURN 
CM05Q, "SEVENTY "j : RETURN 
CNCOQ/'EIQHTY '*'' : RETURN 
CNODQ," NINETY *) : RETURN 
CLT559 QOTO 2080 
CN05Q:PRIMTCN05Q, V? 



if. 
J 



£ =■ $ 
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They call them "Compu-killers." These are the folks 
that have had it up to here with the computer monsters— 
and they strike back with anything they can get their hands 
on. 

Sooner or later it was bound to happen. Being surround- 
ed with all this modern day computerology. and with 
machines taking what could be described as an arrogant at- 
titude, computercide is becoming a growing phenomenon. 

According to computer expert Gary W. Dickson, in a re- 
cent magazine article, computer murder is becoming quite 
common all across the country. 

We heard of an insurance salesman in New York a few 
days ago who became so furious with his computer and the 
errors it was sending back to him, he attacked it with a 
screwdriver. 

The story is told of a California sheriff who fired a shot at 
his computer when it poured out the wrong arrests records. 

Someone we heard about the other day poured honey in- 
to a computer— the only weapon that was near at hand- 

Dickson says the University of Minnesota and MIT are 
very much concerned with this outbreak of computer 
murder. Both are starting a course for managers to teach 
them how to cope with employees who just can't take com- . 
puters any more. . 

If this computer we are using now for this story says. 
'Wrong Command" just one more time, we'll sign up for 
the course, too-— or grab a bottle of honey. 



